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DECUS Program Library Write-up 


DECUS NO. 8-592 


PRINTER TEST PROGRAM - ABSTRACT 

This is a diagnostic program written for the Iomec line printer 
interfaced to the PDP 8/E. The printer is program compatible with 
the DEC LE8 line printer but has expanded capability with respect 
to paper format commands. The program ensures the hardware is 
functioning as well as compatibility with LE8. 






PROGRAM DESCRIPTION 
Printer Test Program for PDP 8/E 


1. Summary 

The test program is divided into three tests each of which is under control of 
the operator and may be individually selected. 

The program will run on the PDP 8/L computer as well as the PDP 8/E with the 
exception of Test 1. This is because Test 1 uses the instruction PFCI (6660) 
which cannot be implemented on the PDP 8/L without hardware change to the central 
processor. 



2. Description of the Three Tests 
2.1 Test 1. 

The font size of the belt currently in use on the printer is sensed 
and the characters for that set are printed on each line in ASCII ascending 
order. The group of characters are rotated to the left by one character 
between each line printed. Single line space code is selected. 

Communication with the printer interface is by programmed 1/0 transfers; 
(the computer continuously tests the printer to determine when it is ready 
to accept the next line of data). 



2.2 Test 2. 

132 words in memory are reserved as a print buffer. This buffer may be 
filled from the Teletype (keyboard or paper tape) and then printed once per 
line. The operator has the option of rotating the buffer to the left or to 
the right between lines. 

A single line space code will be added after the last data character in 
the buffer. If a full line of data (132 characters) is sent to the printer, 
the line will be printed with a "no line space" character transmitted to the 
printer. The program will then cause a single line space with no printing to 
take place. The net effect will be similar to that which takes place for lines 
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2 . 


Description of the Three Tests 


2.2 Test 2. (cont.) 

of less than 132 characters in length except that the printing rate will 
be reduced. 

The interrupt capability of the computer is used during this test. The 
accumulator is slowly incremented during printing except when an interrupt 
is being serviced. 


2.3 Test 3. 

This exercises the vertical format control on the printer. A paper format 
order will be sent to the printer at the approximate rate of one per second. 
The action performed by the printer may be changed at any time during the 
test by typing in the required code from the Teletype keyboard. These codes 
are as follows: 


CONTROL CHARACTER 
FROM TELETYPE 

CR 

LF 

STX-Control B 
FF-Control L 
SUB-Control Z 
VT-Control K 
CAN-Control X 
NAK-Control U 

50- Control N 

51- Control 0 
BS-Control H 


ACTION BY 
PRINTER 

No paper feed 

Single line feed 

Double line feed 

Slew to VFU Channel 

tt M ii it 

ii it it it 

ii it ii ii 

it it it it 

ii ii it it 

ii ii it it 

ii ii ii it 


1 

2 

3 

4 

5 

6 

7 

8 
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3. Operational Details 

The program is supplied as one source roll of tape and an object tape in binary 
format. The assembler used was Macro 8 (DEC-08-LMACA-A-PB dated 3/28/72). 

The beginning of the program is (0200) 8 . The switch register is used as 
follows after the program is started: 


SW1 set 

Select test 1 

SW2 set 

Select test 2 and receive input from Teletype before 
printing if SWO is set. 

SW3 set 

Select test 3 


While the printer is running, the following switch register switches 
are sensed: 


SW9 set 

For test 2 only, reverse rotate data between lines. 

SW10 set 

For test 2 only, rotate data between lines. 

SW11 set 

Halt program at end of current line. The program may be 
restarted from this point. A new determination of SW1 
through 3 will be made. 

4. Teletype Functions 



During test 2, the Teletype is used to input a line of data. The following functions 


are defined: 


BELL 

Terminate input and enter print routine. 

RUBOUT 

Delete previous character typed. 

CARR RET 

No effect on data buffer 

LINE FEED 

ft M t! If ft 


In addition blank tape and Null characters are ignored. This facilitates loading 


data from paper tape 

(instead of using the keyboard). 

5. Flowchart 



The attached flowchart details the operation of the program. 
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00000 

0000 

/ PDP8/E LINE PRINTER TEST 

/ 

*0 

0, 0 

LG 

0000 | 

5777 

JMP SERVE 


00010 

0000 

*10 

Z10,0000 


00011 

0000 

Z1 1 , 0 


00021 

0000 

*21 

TEMPI, 0 


00022 

7574 

COLS, 7574/-132 


00023 

0000 

COUNT, 0 


00024 

0000 

LOCNA, 0 


00025 

0000 

SAVE, 0 


00026 

1400 

PBIJFS, 1 400 


00027 

7700 

CONS, 7700 


00030 

0212 

VFU, 212 


00200 

7300 

*200 

BEGIN, CLA CLL 


00201 

6002 

IOF 


00202 

6035 

KIE 


00203 

7604 

LAS 


00204 

0176 

AND C2000 /TEST SW1 


00205 

7450 

SNA 


00206 

5210 

JMP .+2/ SW1 NOT SET 

LG 

00207 

5777 

JMP T1/SW1 SET 


00210 

7604 

LAS 


00211 

0175 

AND C1000 /TEST SW2 


00212 

7450 

SNA 


00213 

5215 

JMP .+2/ SW2=0 

L G 

00214 

5776 

JMP T2 


00215 

7604 

LAS 


00216 

01 74 

AND C0400 


00217 

7450 

SNA 


00220 

5222 

JMP .+2 /SW3=0 


00221 

5243 

JMP T3/SW3 SET 


00222 

5230 

JMP HALT 


00223 

0000 

SRTST, 0 /TEST SR9,10,11 


00224 

7604 

LAS 


00225 

0173 

AND [0001 /TEST SW11 

- 

00226 

7450 

SNA 
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00227 

5232 

JMP .+3 


00230 

7402 

HALT > HLT 


00231 

5200 

JMP BEGIN 


00232 

7604 

LAS /SR 11=0 


00233 

0172 

AND C 0002/TEST 

SW10 

00234 

7440 

SZA 


LG 00235 

4775 

JMS RPB 

/ROT 

00236 

7604 

LAS 


00237 

0171 

AND C 0004/TEST 

SW9 

00240 

7440 

SZA 


LG 00241 

4774 

JMS RRPB 

/REV 

00242 

5623 

JMP I SRTST 


00243 

6031 

T3> KSF/IS KBD REQ.? 


00244 

5253 

JMP .+7/N0 


00245 

6036 

KRB /YES 


00246 

3030 

DCA VFU 


00247 

1030 

TAD VFU 


00250 

6046 

TLS 


00251 

6041 

TSF 


002 52 

52 51 

JMP .-1 


00253 

6663 

PSKE 


00254 

7410 

SKP/NO PRINTER ERROR 


00255 

5243 

JMP T3 


00256 

7200 

CLA 


00257 

1030 

TAD VFU 


00260 

6661 

PSKF/PRINTER DONE 


00261 

5243 

JMP T3/NO 


00262 

6666 

PCLF PSTB/ O/P VFU 


00263 

4223 

JMS SRTST 


00264 

7200 

CLA 


00265 

1027 

TAD CONS /GEN DLY 


00266 

3021 

DCA TEMPI 


00267 

3023 

DCA COUNT 


00270 

2023 

ISZ COUNT 


00271 

52 70 

JMP .-1 


00272 

2021 

ISZ TEMPI 


00273 

52 70 

JMP .-3 


00274 

5243 

JMP T3 


00275 

0000 

LDSP* 0 


00276 

7200 

CLA 


00277 

1022 

TAD COLS 


00300 

3023 

DCA COUNT/-132 TO COUNT 


00301 

1026 

TAD P8UFS 


00302 

3010 

DCA Z10 


00303 

1170 

TAD C" /LOAD ASCII SPACE 

00304 

3410 

DCA I Z10 


00305 

2023 

ISZ COUNT 
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00306 

5303 

JMP .-3 

00307 

1026 

TAD PBUFS 

00310 

3010 

DCA Z10 

00311 

5675 

JMP I LDSP 

00374 

1044 


00375 

1014 


00376 

0600 


00377 

0400 

* 400 

LG 00400 

4777 

T1 > JMS LDSP 

00401 

6663 

PSKE 

00402 

7410 

SKP 

00403 

5201 

JMP .-2 

00404 

6660 

PFCI/READ FONT CODE 

00405 

7450 

SNA 

00406 

5230 

JMP C16/16 CHAR BELT 

00407 

7041 

CIA 

00410 

1 1 73 

TAD C0001 

0041 1 

7450 

SNA 

00412 

52 54 

JMP C48/48 CHAR BELT 

00413 

7200 

CLA 

00414 

6660 

PFCI 

00415 

7041 

CIA 

00416 

1172 

TAD [0002 

00417 

7450 

SNA 

00420 

5266 

JMP C64/64 CHAR BELT 

00421 

7200 

CLA 

00422 

6660 

PFCI 

00423 

7041 

CIA 

00424 

1167 

TAD [0003 

00425 

7450 

SNA 

00426 

5303 

JMP C96/96 CHAR BELT 

00427 

7402 

HLT/ILLEGAL BELT OR HARDWARE ERROR 

00430 

1 166 

C16> TAD [0020 

00431 

7041 

CIA 

00432 

3023 

DCA COUNT/SET COUNT -16 

LG 00433 

1776 

TAD B16 

00434 

3011 

DCA Z11 

00435 

141 1 

TAD I Zll 

00436 

3410 

DCA I Z10 

00437 

2023 

ISZ COUNT 

00440 

5235 

JMP .-3 

00441 

1165 

C16A* TAD [0212/LF 

00442 

3410 

DCA I Z10 

00443 

4307 

P1B, JMS PNT 

LG 00444 

4775 

JMS RP8 

00445 

7604 

LAS 

00446 

0173 

AND [0001 

00447 

7440 

SZA/TEST SW11 SET 



LG 00450 

5774 

JMP HALT 

00451 

6661 

PS«F 

00452 

5251 

JMP .-1 

00453 

5243 

JMP P1B/SW11 NOT SET 

00454 

1164 

C43> TAD C 0060 

00455 

7041 

CIA 

00456 

3023 

DCA COUNT/SET COUNT -48 

LG 00457 

1 773 

TAD B48 

00460 

301 1 

DCA Z11 

00461 

141 1 

TAD I ZU 

00462 

3410 

DCA I Z10 

00463 

2023 

ISZ COUNT 

00464 

5261 

JMP .-3 

00465 

5241 

JMP C16A 

00466 

1 163 

C64, TAD [0100 

00467 

7041 

CIA 

00470 

3023 

DCA COUNT/SET COUNT -64 

00471 

1 170 

TAD [" 

00472 

3021 

DCA TEMPI 

00473 

1021 

TAD TEMPI 

00474 

3410 

DCA I Z10 

00475 

1021 

TAD TEMPI 

00476 

7001 

I AC 

00477 

2023 

ISZ COUNT 

00500 

5272 

JMP .-6 

00501 

7200 

CLA 

00502 

5241 

JMP C16A 

00503 

1 162 

C96» TAD C0140 

00504 

7041 

CIA 

00505 

3023 

DCA COUNT/SET COUNT -96 

00506 

5271 

JMP C64+3 

00507 

0000 

PNT * 0 /PRINT SUB 

00510 

6667 

PC IE 

0051 1 

1026 

TAD PBUFS 

00512 

3010 

DCA Z10 

00513 

1410 

TAD I Z10/GET CHAR 

00514 

3021 

DCA TEMPI 

00515 

1021 

TAD TEMPI 

00516 

7041 

CIA 

00517 

1165 

TAD [0212 /TEST IF LF 

00520 

7450 

SNA 

00521 

5331 

JMP P1 A/YES* LF 

00522 

7200 

CLA/NOT LF 

00523 

1021 

TAD TEMPI 

00524 

6666 

PCLF PSTB 

00525 

6661 

PSKF 

00526 

5325 

JMP .-1 

00527 

7200 

CLA 
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00530 

5313 

JMP PNT + 4 


00531 

1021 

P1A* TAD TEMPI 


00532 

6666 

PCLF PSTB 


00533 

6665 

PSIE 


00534 

5707 

JMP I PNT 


00573 

1221 



00574 

0230 



00575 

1014 



00576 

1200 

1 


00577 

0275 

*600 


00600 

7604 

T2 * LAS 


00601 

0161 

AND C 4000 /TEST SW0 SET 


00602 

7450 

SNA 


00603 

5215 

JMP T2A 

LG 

00604 

4777 

JMS LDSP/SW0 SET 


00605 

1022 

TAD COLS 


00606 

3023 

DCA COUNT/SET TO -132 


00607 

4244 

JMS TTY 


00610 

3410 

DCA I Z10 


00611 

2023 

ISZ COUNT 


00612 

5207 

JMP • -3/<132 CHARS 


00613 

1165 

TAD [0212 


00614 

3410 

DCA I Z10 

LG 

00615 

4776 

T2A* JMS PNT 

LG 

00616 

4775 

JMS SRTST 


00617 

6001 

ION 


00620 

2024 

ISZ L0CNA/6USYW0RK FOR COMPUTER 


00621 

5220 

JMP .-1/WHILE PRINTING 


00622 

7001 

I AC 


00623 

5220 

JMP .-3 


00624 

6031 

SERVE* KSF/KBD FLAG SET? 


00625 

5230 

JMP .+3 


00626 

6032 

KCC 


00627 

5232 

JMP .+3 


00630 

6663 

PSKE/PNTR• ERROR 


00631 

5234 

JMP .+3 


00632 

6001 

ION 


00633 

5400 

JMP I 0 


00634 

6661 

PSKF 


00635 

7402 

HLT/ILLEGAL INTERRUPT 


00636 

3025 

DCA SAVE/YES 

LG 

00637 

4776 

JMS PNT 

LG 

00640 

4775 

JMS SRTST 


00641 

1025 

TAD SAVE 


00642 

6001 

ION 


00643 

5400 

JMP I 0 
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00644 

0000 

TTY » 0 

00645 

6031 

B4* KSF 

00646 

5245 

JMP 

00647 

6036 

KRB 

00650 

6046 

TLS 

00651 

6041 

TSF 

00652 

5251 

JMP 

00653 

6042 

TCF 

00654 

3021 

DCA 

00655 

1021 

TAD 

00656 

7041 

CIA 

00657 

1160 

TAD 

00660 

7450 

SNA 

00661 

5213 

JMP 

00662 

7200 

CLA 

00663 

1021 

TAD 

00664 

7041 

CIA 

00665 

1 1 65 

TAD 

00666 

7450 

SNA 

00667 

5245 

JMP 

00670 

7200 

CLA 

00671 

1021 

TAD 

00672 

7041 

CIA 

00673 

1 1 57 

TAD 

00674 

7450 

SNA 

00675 

5245 

JMP 

00676 

7200 

CLA 

00677 

1021 

TAD 

00700 

7041 

CIA 

00701 

1156 

TAD 

00702 

7450 

SNA 

00703 

5245 

JMP 

00704 

7200 

CLA 

00705 

1021 

TAD 

00706 

7450 

SNA 

00707 

5245 

JMP 

00710 

7200 

CLA 

0071 1 

1021 

TAD 

00712 

7041 

CIA 

00713 

1 1 55 

TAD 

00714 

7450 

SNA 

00715 

5321 

JMP 810/YES 

00716 

7200 

CLA 

00717 

1021 

TAD TEMPI 

00720 

5644 

JMP 

00721 

1022 

B10> TAD 

00 722 

7041 

CIA 


• “ 1 

/INPUT CHAR TO AC 
/OUTPUT CHAR. TO TTY 

.-1 

TEMPI 

TEMP 1/1S CHAR BELL? 

[0207 

T2A-2/YES 

/NO 

TEMPI/LINE FEED? 

[0212 

B4 

/NO 

TEMPI/CHAR RET? 

[0215 

84 

TEMPI/NULL? 

[0200 

B4 

TEMPI/BLANK? 

B4 

TEMPI/RUB OUT? 

[0377 

I TTY 

COLS /TEST IF RUBOUT IS 


FIRST DATA CHAR 
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00723 
00724 
LG 00725 
00726 
00774 
00775 
00776 
00777 

01000 
01001 
01002 
01003 
01004 
01005 
01006 
01007 
01010 
01011 
01012 
LG 01013 
01014 
01015 
01016 
01017 
01020 
01021 
01022 
01023 
01024 
01025 
01026 
01027 
01030 
01031 
01032 
01033 
01034 
01035 
01036 
01037 
01040 
01041 
01042 
01043 
01044 
01045 
01046 


1023 
7440 
5774 
5245 
1000 
0223 
0507 
027 5 

7240 
1023 
3023 
7240 
1010 
3010 
1 1 70 
3410 
7240 
1010 
3010 
5777 
0000 
7200 
1022 
3023 

7200 
3426 

7201 
1026 

3301 
1026 

3302 
1 701 
3702 
7201 

1301 

3301 
7201 

1302 

3302 
2023 
5227 
1426 
3702 
5614 
0000 
7200 
1022 


TAD COUNT 
SZA 

JMP 86 / NOT FIRST DATA CHAR 

JMP B4 


*1000 /BACKSPACE 
B6> CLA CMA 
TAD 
DCA 
CLA 
TAD 
DCA 
TAD 

DCA I £10 

CLA 
TAD 
DCA 
JMP 


COUNT AND BUFFER POINTER 


COUNT 

COUNT 

CMA 

Z10 

£10 

C 240 

CMA 

£10 

£10 

B4 


RPB, 0 

CLA/SET COUNT =-132 
TAD COLS 
DCA COUNT 

CLA 


DCA 

CLA 

TAD 

DCA 

TAD 

DCA 

B1 1 > TAD I 
DCA 
CLA 

tad 

DCA 

CLA 

TAD 

DCA 

ISZ 

JMP 

TAD 

DCA 

JMP 


I PBUFS 
I AC 
PBUFS 
POINT 
PBUFS 
POINT1 
POINT 
I POINT 1 
I AC 
POINT 
POINT 
I AC 

POINT1 

POINT1 

COUNT 

B1 1 

I PBUFS 
I POI NT 1 

I RPB 


/SET PBUFS TO ZERO 

/SET UP COUNTERS POINT AND POINTl 


/FIRST WORD TO AC AND STORE 
/IN NEXT LOCN. ABOVE 

/INCREMENT POINT AND POINTl 


/MOVE COL.1 TO COL. 132 


RRP8> 0 

CLA /SET COUNT = -132 
TAD COLS 
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01047 

3023 

DCA COUNT 


01050 

1 1 54 

TAD C 205/DEC 133 


01051 

1026 

TAD PBUFS 

/ SET POI NT = PBIJFS+ 1 33 

01052 

3301 

DCA POINT 

01053 

7240 

CLA CMA 

/ SET POI NT 1 =PB(JFS+ 1 32 

01054 

1301 

TAD POINT 

01055 

3302 

DCA POINT1 


01056 

3701 

DCA I POINT 


01057 

7300 

CLA CLL 


01060 

1 702 

B12.* TAD I POINT1 

/UPPER WORD TO AC 

01061 

3701 

DCA I POINT 

01062 

1302 

TAD POINT1 


01063 

3301 

DCA POINT 

/ DECREMENT POINT1 AND 

01064 

7240 

CLA CMA 

01065 

1302 

TAD POINT1 


01066 

3302 

DCA POINT1 


01067 

2023 

ISZ COUNT 


01070 

5260 

JMP B12 


01071 

1 1 54 

TAD C205/MOVE COL 132 

TO COL 1* 

01072 

1026 

/SET POINT 1 =PB(JFS + 1 33 
TAD PBUFS 

FIRST 

010 73 

3302 

DCA POINT1 


01074 

1 702 

TAD I POINT1 


01075 

3701 

DCA I POINT 


01076 

1 1 65 

TAD C 0212 


01077 

3702 

DCA I POINT1 


01100 

5644 

JMP I RRPB 


01101 

0000 

POINT* 0 


01102 

0000 

POINT1* 0 


01 1 77 

01200 

0645 

1200 

*1200 

B16* . 


01201 

0240 

• • 


01202 

0244 

"$ 


01203 

02 52 

"* 


01204 

0254 

19 

t 


01205 

0255 

II _ 


01206 

0256 

• 1 

• 


01207 

0260 

"0 


01210 

0261 

” 1 


01211 

0262 

”2 


01212 

0263 

"3 


01213 

0264 

”4 


01214 

0265 

" 5 


01215 

0266 

”6 


01216 

0267 

"7 


01217 

0270 

"8 


01220 

0271 

"9 
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01221 

01222 

01223 

01224 

01225 

01226 

01227 

01230 

01231 

01232 

01233 

01234 

01235 

01236 

01237 

01240 

01241 

01242 

01243 

01244 

01245 

01246 

01247 

01250 

01251 

01252 

01253 

01254 

01255 

01256 

01257 

01260 

01261 

01262 

01263 

01264 

01265 

01266 

01267 

01270 

01271 

01272 

01273 

01274 

01275 

01276 

01277 

01300 

01301 


1221 
0240 
0243 
0244 
0245 
0246 
0252 
0253 
0254 
0255 
0256 
0257 
0260 
0261 
0262 
0263 
0264 
0265 
0266 
0267 
0270 
02 71 
0300 
0301 
0302 
0303 
0304 
0305 
0306 
0307 
0310 
031 1 
0312 
0313 
0314 
0315 
0316 
0317 
0320 
0321 
0322 
0323 
0324 
0325 
0326 
0327 
0330 
0331 
0332 


B48 r 

ft 

"# 

”% 

"& 

" + 

• 9 

9 

II _ 
it 

•V 

"0 

"1 

”2 

"3 

"4 

"5 

"6 

”7 

"8 

"9 

"A 

”B 

"C 

"D 

"E 

"F 

"G 

"H 

M I 

M J 

"K 

"L 

"M 

"N 

"0 

"P 

*'Q 

”R 

M S 

My 

"U 

"V 

"W 

"X 

"Y 

"Z 
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00154 

0205 

00155 

0377 

00156 

0200 

00157 

0215 

00160 

0207 

00161 

4000 

00162 

0140 

00163 

0100 

00164 

0060 

00165 
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